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PURPOSE 

The purpose of this is to modify the Phoenix Assembler so that it 

1. will accept symbolic programs from the card reader; 

2. will do all three passes automatically; 

3. will load automatically after assembly; 

4. will execute automatically provided no error is found in assembly. 

No binary tape is punched. 

in general the system is supposed to operate without human intervention. 

There are two patches assembled separately: * 

PATCH 1 

A number of pseudoinstructions were added to facilitate I/O instructions. 

1. RDO - Read octai. Four digit octal numbers are accepted from the keyboard into the AC. 

If digits 8 or 9 or more than four digits are entered, the error message "DE" (or data error) is 
typed and the monitor gets ready for the next job. Every octal number must be terminated by a 
comma. Spaces, line feeds and carriage returns are ignored. Negative signs are allowed. 

2. RDA - Reads the ASCII code of an alphanumeric character into the AC. Blanks and Rubouts 
are ignored. No terminating character is required. 

These two pseudoinstructions occupy locations 6000 - 6077 and 2157 - 21/5. The latter patch 
overlays the PAL III pseudoinstruction "FIELD. " 

On this patch there is also a routine that allows stopping a program in midstream and return to 
the monitor for the next job by 200 LOAD ADDRESS - START. This is important as the users 
can notice errors early and thus they do not want all three passes concluded to save time. 

PATCH 2 

The first part of this patch is the CARD read unit which reads and loads the symbolic program on 
the card. Note here that the symbols for CR and LF are interchanged. This part takes up locations 
6100-6141. 

The second part is the program for the pseudo TYB - or type the contents of the AC as a 12 bit 
binary number. The AC is cleared after execution of TYB. This program takes up 6142 - 6163. 








♦ 


T 'he most important port of this whole patch is the monitor . This monitor affects the automatic 
transition from pass to pass. It also checks for errors. !f there are any, it will inhibit execution, 
typing the message "NO EXECUTION. " It will also type the heading for a new job "ALGON¬ 
QUIN ASSEMBLER. ” It will initiate execution of the loaded program. It will return to pick up 
a new job after the termination of the last one (pseudo STP will do it). The monitor occupies 6200 - 
6260. >: 

Locations 6261 - 6307 are for typing headings for the program listing. 

The rest of this patch is a collection of patches onto the Phoenix Assembler. The remarks to these 

programs are self explanatory* 

This patch also provides a number of pseudoinstructions which are to facilitate I/O. 

TYO - Types contents of AC as a four bit octal number. AC = O after execution. No CR 

or LF given. 

TYA - Types the character whose ASCII code is in bits 4-11 in the AC. The AC — O after 
execution. Again no CR of LF or space is given. 

STP - This is equivalent to HLT. STP however does not stop the computer but returns the monitor 
to pick up the next job . 


TYB - Types the contents of AC as a 12 bit binary number. AC = O after execution. 

In the permanent symbol table five instruction symbols were replaced with the new pseudoinstructions. 

PCF RDO 2452 

PLS—»RDA 2462 

PPC—>TYA 24.56 

PSF—>TYG 2446 

MMMM—>STP 2662 

MMML—>TYB 2672 


The octal codes for these pseudos are: 


RDO = 4524 
RDA = 4427 
TYA = 4422 
Tyo = 4431 
TYB = 4452 
STP = 5451 
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Memory Map for the PHOENIX ASSEMBLER and the two patches 
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Note 

1. The optical mark reader used with this system is the Hewlett-Packard 2761A. 

A technical write-up on the interface and operating instructions of this reader is included. 

2. This system was used for a whole year in teaching technicians computer fundamentals. We 
used it basically as a batch-processing system. Classes up to 50 students could write and run 
programs at the same time. Programs are easy to debug by changing incorrect cards and by 
rerunning the program. The cost of the reader is inexpensive ($3,500) and the interface is easy. 

3. A sample program is attached as well as the listings of the two patches. 

4. In the complete ALGONQUIN ASSEMBLER binary tape provided, the first long part is the 
PHOENIX ASSEMBLER and the last two smaller parts are Patch 1 and Patch 2 referred to above. 

^ INTRODUCTION AND DESCRIPTION 

Introduction 

This document provides interconnection and operating instructions for the DS-370 Marked Card 
Reader Interface. 

References 

Hewlett-Packard - Manual for Model HP 2761A Optical Mark Readers. 

Digital Systems Associates Limited - LD-370-F003. 

Description 


The DS-370 Interface is an interface to the HP 2761A Optical Mark Reader for a PDP-8/S 
computer - the Reader which reads at a rate of 105 characters per second. It uses the existing 
inter ,ace of the ASR-33 with only a higher frequency clock and signal conditioning gates added. 
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A switch on the console selects either the Card Reader or ASR-33 input to the PDP-8/S, while 
output remains on the ASR-33. & 

HARDWARE 

Connections 


Input - Input to the system is the HP 2761A Optical Mark Reader and an ASR-33 Teletypewriter. 
The rotary switch on the console selects the appropriate clock and input signal to the existing 

interface. 

Output - Output is accomplished on the ASR-33 in the form of punched paper tape and printed 

output. 

Operator Controls and Action 

Since the computer has no direct control Over the card reader, all cards in the hopper will be 
read by the reader. The operator must turn the card reader on and off manually. An example of 
a logical sequence of events is given below. 

a) Load card hopper with the number of cards to provide correct amount of data to be accepted 

by the PDP-8/S. 

b) Turn console switch to position marked CARD. 

c) Start program. Program will proceed and wait for flag from card readers. 

d) Push START button on reader. 

e) The cards will be read until the hopper is empty at which time push the STOP button. This 
will stop the reader and the program will continue until a halt is encountered. 

CAUTION: STARTING THE READER GIVES CODE "0005." OPERATOR'S PROGRAM SHOULD 
TAKE CARE OF IT. 

Command Set ( 


The card reader uses the same commands as the ASR-33 teletype reader. 

Performance Specifications 

HP 2761A Optical Mark Reader 

Option 04 - 40 column 105 character/sec. 

Accessory 12841 - Hollerith Code, 64 characters. 

The leading edge of the card produces an automatic CR, while the trailing edge produces an 
automatic LF. 














4 patch no 


/OCTAL A KAO ROUTINE 




* 6444 



6 0 0 0 

0000 

rC Q ) # 

0 


6 00 1 

7200 


CLA 


6 00 2 

1266 


TAD Mb 


6 00 3 

32 73 


OCA NOIG 


6 00 4 

3275 


oca Temp 


6 03 5 

70 40 


CM A 


6 00 6 

327 4 

BAK * 

OCA NKfr 


6 0 0 7 

442 7 

GET, 

JMS I 27 


60 10 

1267 


1 AO M240 


6 011 

7 6 50 


AMA CLA 

/NO S P 

6 0 12 

520 7 


jmp Set 


6313 

1111 


TAD STO 


60 14 

1146 


r ao m2 i.2 


6 0 15 

7450 


AM A 

'NO LF 

60 16 

520 7 


.JMP GET 


60 17 

1 0 7 4 


TAO M3 


6020 

7 6 50 


AMA CLA 


6 021 

520 7 


JMP GET 


6 022 

1 1 l 1 


TAO STO 


6023 

12 70 


TAO M2 55 


6 02 4 

7 450 


ANA 

/Meg• No • 

6 02 5 

520 6 


JMP (3AH 


6026 

700 1 


I. AC 


6 02 7 

7 6 50 


AMA CLA 

/COMMA ENOS NO. 

6 0 30 

->254 


JMP END 


6 0 31 

till 


TAD STO 

/DIGITS 0-7 ALLOWED 

6 0 32 

1271 


TAO m260 


6 0 33 

7510 


APA 


60 34 

52 6*3 


JMP Eftft 


6035 

1341 


TAO iM 10 


6 0 36 

7744 


AMA CLA 


63 37 

32 6*3 


JMP E.R& 


6 0 40 

2273 


IA2 NOIG 


6 0 41 

7 413 


A*P 

/ TOO MANY fclGlTS 

6 0 42 

52 64 


JMP ERR 

6 0 43 

1111 


TAO STO 

/ STRIP OFF 260 

6 0 44 

127 1 


TAD M260 

6045 

3111 


OCA STO 

/ Pack in temp 

6 0 46 

127 3 


IAO TEMP 


6 0 4 7 

7146 


CLL RTL 


6 0 r>0 

744 4 


KAL 


6051 

1 l 1 1 


TAO STO 


6 0 52 

32 7 5 


OCA TEMP 


6 0 53 

524 7 


JMP get 

/ NEXT 016IT 

6054 

1 2 7 5 

ENID, 

TAO TEX»P 


6 0 55 

2274 


IA0 NEC 


6 0 56 

74 4 1 


CIA 

/NEGATIVE 

6057 

5644 


jmp I ROO 


6 0 60 

7244 

EKrt, 

CLA 


6 0 6! 

1117 


TAO CRLF 


6 0 62 

4434 


JMo I E£E 


6 0 63 

127 6 


TAO OE 


6 0 6 ^ 

4434 


J M A I E E E 

/TYPE ERROR CODE 

60 6 5 

5677 


JMP I MET 

/Return to monitor 
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6 0 66 > 

6 0 67 

6 Aid 

6.471 

6 072 

60 73 

6 0 7 4 

6 37 5 

6076 

60 7 7. 

2 1 57 

2 1 60 

2 1 61 

2 ! 62 

2 1 63 

2 1 64 

2 1 65 

2 16 6 

2 167 

2 1 70 

2 171 

2 1 72 

2 1 73 

2 1 74 

2 175 

■0 200 

0 20 1 

2 202 

2 20 3 

2 20 4 

2 20 5 

2 20 6 

2 20 7 

22 14 

2211 


7773 
7 540 
7 52 3 
7 520 
7 40 1 
000 0 
0000 
0000 
0 40 5 
6212 


0000 
6032 
60 31 
5361 
6036 
7 4 50 
536! 
3111 
1111 

I 375 
7650 
53 61 

II 1 1 
5757 
7 40 1 


560 1 
2202 


60 4 6 
6032 
361 1 
70 40 
3134 
5610 
0202 
62 53 


05, 

- 5 

02 40, 

-2 40 

02 55, 

-255 

M2 60 , 

-2 60 

03 7 7, 

-37 7 

MD1C-, 

0 

MEG, 

0 

f EMP , 

0 

BE, 

0 40 5 

PE r, 

5 10=1 1 1 

6212 

+ 2 i d7 

L I 3N , 

0 


KCC 

PE J, 

iK 3F 


/OVE R FIELD 
'ROfk aovJI 


M377, 

/0 AM JAL. 
*200 


jmP .-l 

KRb 

orMA 

JiMP r<F.J 
DCA sn 
tAD 5 TO 
TAD M37 7 
5*4A CLA 
JMP KE.J 

tad sto 

JMP I LI5N 
-377 

INiTF.ftRUP T 


/jMO SLAhfK L/T 


/NO ftUBOUT 


JMP I 
2202 


. + l 


*2202 


/OVEft FIX 


4 TA , 


TL3 

KCC 

DCA I STX 
CM A 

DCA 134 
JMP I . + 1 

202 
62 53 


M212=106 
,M3=7 4 
EEE=30 
CRLF=117 
010=6141 


/ PUT ROQ m SVM. TABLE 
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* 2452 


2 452 

2204 

224 4 


2 4 53 

1 700 

1 740 


2 4 54 

4000 

0000 


2 455 

452 4 

JM3 I 

124 



/ PUT RDA iM 

3Y(M 



* 2 462 


2 462 

2204 

2244 

V. 

2 4 63 

'0100 

0 1 00 


2 464 

0000 

0000 


2 465 

4427 

JM3 1 

27 


4 <42 7 
8 AK 
C KLF 
0 E 
FEE 
E MD 
E Kr< 
PET 
L I 3M 
M I 0 
M2 1 2 
M2 40 
M2 55 
M 2 60 
M 3 
M 3 77 
M 5 

M 01G 
M EG 
M 37 7 

f< 00 

K E,J 
RET 

3 n 
^ r a 
r emh 


27 


2 1 57 
600 6 
0117 
6076 
0030 
60 54 
60 60 
600 7 
2157 
6141 
0106 
60 6 7 
60 70 
60 7 1 
0074 t 
6072 
6066 
60 73 
6074 
2 1 75 
6000 
2161 
60 7 7 
4 111 
221 1 
60 7 5 


LISM 


Ewc> o f Patch 


fABLE 
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/CAKD HEADEk PATCH TO ALGONQUIN PAL. 
*61 00 


6 100 

6036 

CAPO, 

KK8 

6 131 

3333 


AND PI 77 

6 102 

1 331 


TAD M46 

6 103 

7 450 


SNA 

6 104 

532 6 


JMP D2 

6 10 5 

1 332 


TAD P34 

6 106 

7 4 50 


SNA 

6 107 

5321 


JMP 01 

6 110 

2337 


ISZ OFF 

6 111 

7410 


SKP 

6112 

5326 


JMP D2 

6 113 

1 33 5 


TAD P 5 

6 114 

7 450 


SNA 

6 115 

5734 


JMP I TINT 

6 116 

1 341 


T A D M 1 0 

6 117 

7450 


SNA 

6 120 

5734 


JMP I TINT 

6 121 

2337 

01 , 

ISZ OFF 

6 122 

7000 


NOP 

6 123 

1 340 


TAD P215 

6 124 

1101 


TAD 101 

6 125 

5736 


JMP I 8AK 

6 126 

7240 

ro 

CLA CMA 

6 127 ’ 

3337 


DCA OFF 

6 1 30 

5734 


JMP I TINT 

6 1 31 

7732 

M 4 6 , 

7732 

6132 

0034 

P34, 

34 

6 1 33 

0177 

PI 77, 

0177 

6 1 34 

1 465 

TINT, 

1 465 

6 1 35 

000 5 

P 5, 

5 

6 1 36 

1471 

8AK , 

1 471 

6137 

0000 

OFF, 

0 

6 1 40 

0215 

P21 5, 

21 5 

6 141 

7770 

*11 0 , 

7 7 70 



//////// 



/8 INAPT 

OUTPUT KOUTI 

6 1 42 

0000 

BIOUT, 

0 

6 1 43 

3362 


DCA SAVE 

6 1 44 

1 360 


TAD Ml2 

6 1 45 

3363 


OCA KUNT 

6 146 

1362 

HOT, 

TAD SAVE 

6 1 47 

7104 


CLL PAL 

6 1 50 

3362 


DCA SAVE 

6 151 

7430 


SZL 

6 1 52 

7001 


I AC 

6 1 53 

1 361 


TAD C260 

6 1 54 

4422 


JMS I 22 

6 1 55 

2363 


ISZ KUNT 

6 1 56 

5346 


JMP HOr 

6 1 57 

57 42 


JMP I 8I0UT 









6 1 60 
6 161 
6 1 62 
6 1 63 


6 164 
6 1 65 
6 1 66 
6 1 67 
6 1 70 
6 171 


6200 
6 201 
6 202 

620 3 
'620 4 
6205 
6 20 6 
6207 
6210 

621 1 
6212 

6213 

6214 

6215 
621 6 
6217 
6 220 
6221 
6222 
6 223 
6 22 4 
6 22 5 
6226 
6227 
62 30 
623! 
6232 
62 33 

6234 

6235 

6236 

6237 
6 2 40 
624! 
6 2 42 
6243 
6 244 
6245 
6 2 46 
6247 
62 50 


7764 

0260 

0000 

0000 


7200 
177! 
0124 
5770 
022 5 
62 53 


•Ml 2, -14 

C260j> 260 

SAVE, 0 
KJNT, 0 
/////// 

/PATCH TO THE 3TAKT OF PAL. 
/IT CHECKS FOK PASS 0. 

PASS, CLA 

TAD I xsr 
AMD 124 
JMP I . +1 
22 5 

xsr, sr > 

////////// 


/PASS MOM I TOK KOUTTME. 

/ALSO SPACES BETWEEN JOBS 4nD PkIMTS 
*6200 


7300 MON, 

12 53 
1036 
3253 
7 430 
520 7 
5652 

1253 FKY, 

7650 

5221 

! 655 

3654 

1117 

4430 

12 56 

4430 

5224 

10 62 DO IF, 

4300 

4430 

1064 

4261 

6344 

1117 

4430 

5654 

7300 KETUHN 
3253 
10 62 
4261 
6352 
12 57 
430 J 
546 5 

7200 HEAD, 

1 2 60 
4261 
6356 
1117 
4430 
5651 


CLA 

CLL 

TAD 

ST 

TAD 

C2000 

DCA 

ST 

SZL 


JMP 

TKY 

JMP 

I C20 4 

TAD 

ST 

SNA 

CLA 

JMP 

DOIT 

TAD 

I S TP 

DCA 

I OKG 

TAD 

CKLF 

JMS 

I EEE 

TAD 

NO 

JMS 

I EEE • 

JMP 

* +4 

TAD 

C4 

JMS 

LF 

JMS 

I EEE 

TAD 

C6 

JMS 

TEXT 

EXEC 

FAD 

cklf 

JMS 

I EEE 

JMP 

I OKG 

CLA 

CLL 

DCA 

sr 

TAD 

C4 

JMS 

TEXT 

ex i r 

TAD 

C20 ' 

JMS 

LF 

JMP 

I C200 

CLA 

/ TYP 

FAD 

C1 3 

JMS 

TEXT 

ALGON 

TAD 

CKLF 

JMS 

I EEE 

JMP 

I . + 1 


fHE HEADING. 


HEADINGS. 
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62 51 

6 2 52 

6253 

6254 

6255 

6256 

6 2 57 

6260 

62 61 

6 2 62 

6 2 63 

6264 

6265 

6266 

6267 

6 2 70 

6271 

62 72 

6273 

6274 

6275 

6276 

6277 

6 300 

6 301 

6 302 

6 30 3 

6304 

6 30 5 

6 30 6 

6 30 7 

6310 

631 1 

6312 

6313 

6314 

6315 

6316 

6317 

6 320 

6 321 

6 322 

6323 

6324 

6325 

6 32 6 

6 327 


0242 


242 

020 4 

C20 4, 

20 4 * 

0000 

ST, 

0 

0000 

0 KG, 

0 

2 665 

S TP , 

2665 

5 61 7 

NO, 

1 61 7 

0020 

C20, 

20 

00 1 3 

Cl 3, 

13 


/ pouti me types a heading.on entrance the ac contains 


/THE ■' 

DUMBER OF WORDS TO BE TYPED, AND THE LOC. AFTER THE 


/CALL 

CONTAINS THE ADDRESS OF THE FIRST LETTER. 

0000 

TEXT, 

0 

70 41 


CIA 

3276 


DCA TALY 

i 661 


TAD I TEXT 

3277 


DCA FIRST , - 

1 677 


TAD I FIRST 

4430 


JMS I EEE V- 

2277 


ISZ FIRST *. t 

22 7 6 


ISZ taly 

5266 


JMP .-4 

7300 


CLA CLL 

2261 


ISZ TEXT 

5661 


JMP I TEXT 

0000 

taly. 

0 

0000 

FIRST 

, 0 


//////////// 


/ROUTINE TYPES AS MANY CKLF’S AS THE NUMBER FOUND 


/IN THE AC. AC IS CLEAkED ON EXIT. 

0000 

LF, 

0 

7041 


CIA 

3276 


DCA TALY 

1117 


TAD CRLF 

4430 


JMS I EEE 

22 76 


ISZ TALY 

5303 


JMP .-3 

5700 


JMP I LF 


.////////// 


/ROUTINE LOADS PROGRAM IN MEMORY. IT ALSO CHECKS THAT 


/THE 

ADDRESSES USED ARE IN THE RANGE 6400-7400. IF NOT 


/THE 

JOB IS TERMINATED. 

1 142 

ADRCH 

i, TAD AACT 

1 336 


TAD LOW 

7420 


SNL 

5327 


JMP QUIT 

7300 


CLA CLL 

1 1 42 


TAD AACT 

1065 


TAD C200 

1065 


TAD C200 

7 430 


SZL 

532 7 


JMP QUIT 

7200 


CLA 

1 1 40 


TAD SINW 

3542 


DCA I AACT 

5726 


JMP I .+1 

033 5 


335 

7300 

QUIT, 

CLA CLL 
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6 330 
6 331 
6 332 

6333 

6334 

6335 
6 336 


6337 
6 340 
6 341 
6 342 
6343 


6344 

6345 

6346 

6347 
6 3 50 
6351 

6 352 
6353 
6 354 

6355 

6356 

6357 
6 363 

6361 

6362 

6363 
6 364 
6 365 

6366 

6367 

6370 

6371 
6 372 

6373 

6374 


2311 

2012 

2313 

2014 


1 1 42 

TAD AACT 

4431 

JMS I 31 

10 62 

TAD C4 

4261 

JMS TEXT 

637! 

LOC 

5232 

JMP RETURN 

1400 LOW, 

1 400 


///////// 

/THIS HourIME ADDS 1 TO THE PASS COUNTER WOHD ST 
/IF THER HAS BEEN AN ERROR• TIS WILL PREVENT 
/EXECUTION OF THE JOB. 

/this is patched to the error handler routine of pal. 


0000 ERR, 

0 


4430 

JMS 

I EEE 

2253 

IS2 

ST 

7200 

CLA 


5737 

JMP 

I ERR 



///////// 


/CODES 

FOR EXECUTION 

000 5 

EXEC, 

0005 

300 5 


300 5 

0325 


0325 

241 1 


241 1 

1 716 


1 71 6 

4543 


4543 


/CODES 

FOR EXIT 

4543 

EXIT, 

4543 

4300 


4300 

3530 


0 530 

1 124 


1 124 


/CODES F0R ALGONQUIN ASSEMBLER 


4530 ALGON, 
0114 
0717 
1 621 
251 1 
1655 
0123 
230 5 
1 502 


4500 
3114 
3717 
1 621 
251 1 
1 655 
0123 
230 5 
1 502 


1 43 5 
2256 


0002 
3104 
0014 
1 73 3 


1 1 42 

3614 

5446 

6254 


140 5 
2256 

/CODES FOR BAD ADDRESS. 

LOG, 0302 * 

0104 
0014 
1 70 3 

/MISCELLANEOUS PATCHES. 

/DO NOT PUNCH THE ORIGIN BUT SET ORG IN PASS ? 2. 
*23 1 1 

TAD AACT 
DCA I .+2 
POPJ 
ORG 


/////// 

/NO LEADER TRAILER BEFORE PASS 2. 
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*2 52 


0 2 52 


3 333 
0 334 


1 647 


1 7 77 


0 230 
3231 


0 223 
0 22 4 


0 601 


0 654 
0 655 
0 656 


1 467 
1 473 


2 662 
2 663 
2 664 
2 665 


2 446 
2 447 
2 453 
2 451 


7003 


5734 

6313 

4777 

6337 

5631 

6233 


5624 

6164 


7 640 


1117 

4433 

7300 


5670 

6103 


2324 

2030 

0000 

5451 


2431 
1 703 
0000 
4431 


INJOP . 

////// 8 

/load program in storage and omit binary punch in pass 2. 

*333 

JMP I . + 1 
ADRCH 

////// 

/INDICATE ERROR 
* 1 647 

JM3 I POINT 
/POINTED TO ERR* 

*1777 

POINT, ERR 
////// 

/entek monitor 
*230 

JMP I .+1 
MON 

////// 

/PATCH TO BEGINNING OF P^AL. 

*223 

JMP I .+1 v 

PASS 

///// 

/NO SYMBOL TABLE LIST IN PASS 3. 

*601 

SZA CLA 

///// 

/INSTEAD OF PUNCHING CHECKSUM AND L/T AFTER PASS 2. 

/GIVE A CRLP. 

*654 

TAD 117 
JMS I EEE 
NOP 

////// 

/PATCH TO READ-IN ROUTINE FOR CARD INPUT 
*1467 

jmp i .+i t 

CARD 

///// 

/PSEUDO OP CODE FOR STP. 

*2 662 
2324 
2000 
0000 

JMP I 51 
////// 

/PSEUDO OP TYO 
*2446 
2431 
1 700 
0000 
JMS I 31 
////// 

/PSEUDO OP CODE FOR TYA 
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2 456 2431 

245? 0100 

2 460 0000 

2 461 4422 


2672 243! 

2673 0200 

2 674 0000 

2 675 4452 


0202 7430 

0 203 6242 


*2456 
2431 
0100 
0000 
JMS I 
///// 
/PSEUDO 
*2 672 
2431 
0200 
0000 
JMS I 
////// 
/PQINTER 
*202 


22 


OP CODE FOR TY8 


/////// 


52 

TO TYPE HEAD I MG 

SKP 

HEAD 


0 234 


005! 


0 0 52 


5603 


6232 


6142 


/type HEADING BDFORE PASS 
*234 

JMP I 203 

//////// 

/POINTER FOR STP. 

*5! 

return 

////// * 

/POINTER FOR BIN TYPE. 

*52 

BIOUT 

C6= 64 
C4=62 
C200=65 
02000=36 
EEE=30 
CRLF= 3 17 
AACT=142 
8INW= 1 40 
POPJ= 5446 
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A ACT 

0 l 42 

AORCH 

6310 

ALG0N 

6356 

3AK 

6136 

3 INW 

01 40 

8 io ur 

61 42 

CARO 

6100 

CKLF 

0117 

C 1 3 

62 60 

C'20 

6257 

C 200 

0065 

C2000 

0036 

C20 4 

62 52 

C 2 60 

61 61 

C4 

00 62 

C 6 

00 64 

DOIT 

6221 

D 1 

6121 

D2 

6126 

CEE 

0030 

ERR 

6337 

EXEC 

6344 

EXIT 

6352 

FIRST 

6277 

HEAD 

6242 

K UMT 

6163 

LF 

6300 

LOC 

6371 

LOW 

6336 

MON 

6200 

M 1 0 

6141 

M 12 

61 60 

M 46 

6131 

NO 

62 56 

0 FF 

6137 

0 RG 

6254 

PASS 

61 64 

POINT 

1 777 

popj 

5446 

P 1 77 

6133 

P 2 1 5 

6140 

P 34 

6132 

P 5 

6135 

QUIT 

6327 

RETURN 

6232 

ROT 

6146 

SAVE 

61 62 

ST 

62 53 

S TP 

6255 

TALY 

6276 

TEXT 

62 61 

T INT 

6134 

TRY 

620 7 

X ST 

61 71 


fT>40 )F PATCH 'JO • 
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ALGONOUI n-assembler 


COUNT 

7023 

CR 

7027 

LF 

7030 

SAVE 

732 5 

SP 

7326 

t ally 

7324 

JP 

7003 


/example of a progham dome using the 

/ALGONQUIN-ASSEMBLER 
////// 

/THE PROGRAM DUMPS ITSELF BOTH IN OCTAL 

/AND IN BINARY 

*7003 


7 000 

7200 


CLA 


7 031 

1223 


TAD 

COUNT 

7 032 

3224 


DCA 

tally 

7303 

1230 

UP, 

TAD 

7330 

7034 

3225 


DCA 

SAVE 

7035 

1225 


TAD 

SAVE 

7 03 6 

4431 


TYO 


7 00 7 

1226 


TAD 

SP 

7010 

4422 


TYA 


7011 

122 5 


TAD 

SAVE 

7 312 

4452 


TYB 


7013 

1227 


TAD 

CR 

7014 

4422 


TYA 


7015 

1230 


TAD 

LF 

7016 

4422 


TYA 


7 0 1 7 

220 3 


ISZ 

UP 

7020 

222 4 


I SZ 

tally 

7 021 5 

523 3 


JMP 

UP 

7022 

5451 


STP 

• 

7323 

7747 

COUNT, 

-31 


7 024 

0000 

TALLY, 

0 


7025 

0000 

SAVE, 

0 


7026 

0240 

SP, 

240 


7 02 7 

0215 

CR, 

215 


7 0 33 

0212 

LF, 

212 



' s fMB 7L 1AHLE Is OMIIfEDD Ai IhE END 
/)F PASS III. 4 
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EXECUTION 


7230 111010030000 
1223 301010010011 

3224 011010010103 
1 233 03101000301 1 

3225 311010010101 

1225 001010010101 
4431 100100011001 
1 226 0010100101 10 
4422 100100013010 
1225 001010010101 
4452 130100101010 
1 22 7 0010103101 1 1 
4422 100103010010 
1233 001010011000 
4422 100100010010 
2203 01001300001 1 
2224 010013010100 
5233 101010000011 
5451 101100101001 

7 747 1 1 1 111 1001 1 1 
7 773 1 1 1 1 1 1 1 1 101 1 
7 773 1 1 1 1 1 1 1 1 101 1 
3240 300010100000 
0215 000310301101 
0212 000010031010 


EXIT 





